home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / XCO212P.ZIP / ISODEF / longmath.def < prev    next >
Encoding:
Text File  |  1995-05-31  |  1.4 KB  |  53 lines
  1. <* NEW INTRINSIC+ *>
  2. DEFINITION MODULE LongMath;
  3.  
  4.   (* Mathematical functions for the type LONGREAL *)
  5.  
  6. CONST
  7.   pi   = 3.14159265358979;
  8.   exp1 = 2.71828182845904;
  9.  
  10. PROCEDURE sqrt (x: LONGREAL): LONGREAL;
  11.   (* Returns the positive square root of x *)
  12.  
  13. PROCEDURE exp (x: LONGREAL): LONGREAL;
  14.   (* Returns the exponential of x *)
  15.  
  16. PROCEDURE ln (x: LONGREAL): LONGREAL;
  17.   (* Returns the natural logarithm of x *)
  18.  
  19.   (* The angle in all trigonometric functions is measured in radians *)
  20.  
  21. PROCEDURE sin (x: LONGREAL): LONGREAL;
  22.   (* Returns the sine of x *)
  23.  
  24. PROCEDURE cos (x: LONGREAL): LONGREAL;
  25.   (* Returns the cosine of x *)
  26.  
  27. PROCEDURE tan (x: LONGREAL): LONGREAL;
  28.   (* Returns the tangent of x *)
  29.  
  30. PROCEDURE arcsin (x: LONGREAL): LONGREAL;
  31.   (* Returns the arcsine of x *)
  32.  
  33. PROCEDURE arccos (x: LONGREAL): LONGREAL;
  34.   (* Returns the arccosine of x *)
  35.  
  36. PROCEDURE arctan (x: LONGREAL): LONGREAL;
  37.   (* Returns the arctangent of x *)
  38.  
  39. PROCEDURE power (base, exponent: LONGREAL): LONGREAL;
  40.   (* Returns the value of the number base raised to the power exponent *)
  41.  
  42. PROCEDURE round (x: LONGREAL): INTEGER;
  43.   (* Returns the value of x rounded to the nearest integer *)
  44.  
  45. PROCEDURE IsRMathException (): BOOLEAN;
  46.   (* Returns TRUE if the current coroutine is in the exceptional execution state
  47.      because of the raising of an exception in a routine from this module; otherwise
  48.      returns FALSE.
  49.   *)
  50.  
  51. END LongMath.
  52.  
  53.